perm filename TEST0.SAI[SAI,BGB] blob sn#105716 filedate 1974-06-08 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TEST0"
C00003 ENDMK
C⊗;
BEGIN "TEST0"
	REQUIRE "GEOMES.HDR[GEM,HE]" SOURCE_FILE;
	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
	INTEGER B1,B2;
	MKUNIV;
	B1 ← MKCUBE(2,4,8);
	WHILE TRUE DO ⊂ ROTATE(B1,π/44,π/52,π/68);GEODPY;⊃;
END;